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BEGIN 
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'e 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'* ALL RIGHTS RESERVED. 


'® 
'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'e ro IN eee WITH THE OF ot LICENSE AND ah THE 

ERWISE MADE AVAILABLE TO ANY 


ie TRANSFERRED. 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
ie CORPORATION. 

is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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! FACILITY: General Utility Library 
i ABSTRACT: 


LIBSTRIM_FILESPEC takes a oun ky qualified filespec and 
trims it so that it fits in a field of fixed width. 


1 

1 

i] 

' 

i] 

' 

' 

ENVIRONMENT: User mode - AST reentrant 
AUTHOR: Steven B. Lionel, CREATION DATE: 11-Jan-1983 
MODIFIED BY: 

i Original. SBL 11-!an-1983 

: Delete reference to FABSB_DSBMSK 

Convert to using SFILESCAR. SBL 12-Aug-1983 
t 

1 


Fix bug where the OUTLEN is not stored. SBL 9-Nov-1983 
Add trailing zero to item list for call to SFILESCAN. DG 


—~— 
g 
oS: 
o 
sees 


2. V4.0-74 
arate 1.69251 
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LIBSTRIM_FILESP Trim filespec to fixed Length 
1-004 Declarations 

; 0051 1 &SBTTL ‘Declarations’ 
: 35 $588 : PROLOGUE FILE 

s ee 0054 1! 

3 28 opee 1 

ie 056 1 REQUIRE ‘'RTLIN:LIBPRO’ -3'; 
; 0127 1 

;: WW 0128 1! 

; & 0129 1 ! LINKAGES: 

5; . 6} 3 01! 

3 o¢ +e g NONE 

3; 6 8 ¢ 1! 

s 6& 1 1 ! TABLE OF CONTENTS: 
3; 6 0134 1! 

; @& 0135 #1 

: 67 0136 1 FORWARD ROUTINE 

; 68 0137 #1 LIBSTRIM_FILESPEC; 
; & 0138 #1 

; 70 0139 1! 

Pee 0140 1 ! MACROS: 

; 7 0141 1! 

Rae « Bis¢ 1! NONE 

s 67% 0143 1! 

$ 75 0144 1 ! EQUATED SYMBOLS: 

; 7 0145 1! 

Bae 4 0146 1! NONE 

FA 0147 1! 

; 0148 1 ! FIELDS: 

; 0149 1! 

; si 0150 1! NONE 

;- § 0151 1! 

; 8 B86 1 ! OWN STORAGE: 

ee 01535 1! 

s 85 0154 1! NONE 

3 «8 0155 1! 

; 8 0156 1 ! EXTERNALS: 

; =68B8B 0157 1! 

; 0158 1 

3 90 0159 1 EXTERNAL ROUTINE 
tom 0160 1 

; F 0161 1 LIBSSCOPY_R_DX; 
: §F pio¢ 1 

: 94 016 1 EXTERNAL LITERAL 

; «95 0164 1 LIB$_INVARG, 

: 96 165 1 LIB$_STRTRU; 


LIBSANALYZE_SDESC_Re: patente cit wi 


1984 01:19:34 AX-11 Bliss-3 
198 03:43:34 ¢ 


2 ars as 
LIBRTL.SRCIJLIBTRIMFI.B52;1 


' Switches, PSECTS, macros : 


! Trim filespec 


-R2$LINKAGE, ! Get length and pointer 
opy string by reference. 


' Invalid argument 
! String truncated 
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LIBSTRIM_FILESP Trim filespec to fixed Length 1-5e 1984 01:19:34 AX-11 Bliss-32 V4.0-74 Page 3 
7-004 LIBSTR MFILESPEC - Trim a’ ti lespec 1or3 08-1382 488 LIBRTL.SRCILIBTRIMFI.B32;1 9 03) 

8 XSBITL "LIBSTRIM FILESPEC - Trim a filespec’ 

9 GLOBAL ROUTINE LIBSTRIM FILESPEC ( 

IN_FILE: REF BLOCK [C, BYTE ' Input filespec 
1 0 OUT FILE: REF BLOCK ¢, BYTE, i Output filespec 
; 0 WIDTH: REF VECTOR CL, WORDJ i width desired (optional) 
0 QUTLEN: REF VECTOR C, WORDS i width used (optional 
= 


!o4¢ 


i FUNCTIONAL DESCRIPTION: 


LIBSTRIM_FILESPEC takes a 
name string, ang shortens 


a e pec. usually an RMS resultant 
a field of fixed width. Thi 

sp 

ow 


‘ 
if necessary) so that it fits in 

" is useful for compilers and other 

utilities which need to di y fi 

Listing headers. This all t 

in a consistent fashion. 


lespecs in fixed fields, such as 
hese utilities to display filespecs 


If necessary, the following portions of the filespec are removed, 
in order, to fit into the specified field width: 
{. Node (including access control) 
- Device 
- Directory 
4. Version 
5. Type 
If after removing a 
than the field widt 


d 
success status LIB$ 
CALLING SEQUENCE: 


ret_status.wic.v = LIBSTRIM_FILESPEC ( 
n_file.rt.dx, 
out file.wt.dx 
f. width.rw.rJ 
, Coutlen.ww.r] JJ) 


Ll of these fields, the file name is still longer 
h, the file name is truncated and the alternate 
_STRTRU is returned. 


FORMAL PARAMETERS: 


IN_FILE A string ono ay the filespec to be trimmed. — 
The filespec should be an RMS resultant name ote tng. 
ns 


width desired. If omitted, the current Length of 
OUT_FILE is used. 


UUTLEN An unsigned word integer into which is placed the 
length of the trimd filespec, not including 
any blank padding nor truncated characters. 


2 The error OM ee is returned if IN_FILE conta 

2 more than 255 characters. 

5 OUT_FILE A string into which will be placed the trimmed 

2 filespec. 

5 WIDTH An unsigned word integer containing the maximum field 
2 


IMPLICIT INPUTS: 


FUN $2 DOONAN WN 0 ODNOAU EWN — OVONAUS WIN OVD ONAUSWN—OVOONOu 


Be Se Se Be Be SH Se Ss Ge BH Se Ge FE Ss Se Ge Ge SETS SH Se Ge Ge Ge Se FF Ss Se Ss Ge Ge FH SH Ss Se Ge Se Ge FSS Se Se Se Ss Se SF Se SHS S8 Sse See Se Se Se ee 


ec ee cel ec cee el cl cel ee el cee el ee ee ee ee i ee ee ce ee ee ed ee eel ce rel cee) ce el ee ce cee el ee eel cee ee ee ee a ce ee ce ee ee ee ee ed ae 


STRIM_FILESP 


PAPAS AASV 
NOUS WN—OVOOnNCu 


090909 0909 08 SIN NINN NIN NNO 


Seles 


Coo 
Wr 


hororerenenrenny 
=SSRIESE 


N 
TRUNCATE 


LIST_PTR: REF 


ABEL 
TRIM_BLOCK; 


UILTIN 
ACTUALCOUNT 
NULLPARAME TER; 


4 
i 
i 
i 
i 
INCATED, : 
FSCN_LIST: BLOCKVECTOR (7,8,BYTE] FIELD (F 
N 
Pp 


STR_STATUS1, STR_STATUS2, RMS_STATUS, COPY 


OCK C8, BYTE) FIELD (FSC 


'¢ 
Validate argument count. 


S), 
Item Li 


V4 


st 
! Pointer to FSCN_LIST 
! Status from operations. 


D 16 
Trim sikeppes to fixed length 16-Sep-1984 91 13:3 AX-11 Bliss-3 
LIBSTRIM_FILESPEC = Trim a filespec 14-Sep-1984 12:39:34 LIBRTL.SRCJLI 
0 ; ! } NONE 
o 5 ! } IMPLICIT OUTPUTS: 
8 ? ! NONE 
8 8 : COMPLETION STATUS: 
0231 1! SS$_NORMAL Normal successful completion 
0 ¢ 1! LIBS_STRTRU Success - ates truncated. Significant characters 
0 1! of the trimmed filespec were truncated. 
0234 1! LIBS_INVARG gyei ie argument. IN_FILE was longer than 
0235 1! 55 characters. 
0 ¢9 ; LIBS_WRONUMARG Wrong number of arguments. 
0237 1! LIBS_xxx Any error status from LIBSSCOPY_R_DX. 
0635 } RMS$_xxx Any RMS error status from the SFICESCAN service. 
8 40 ! SIDE EFFECTS: 
0 :. 2 NONE 
0 1! 
0 1 !=- 
0 1 
0 § BEGIN 
0 
0 § FIELD 
0 FSCN_FIELDS = 
0 2 SET 
0 é FSCN_W_LENGTH = [0,0,16,0), 
0 FSCN-W-CODE = (0,16,16,0) 
0 FSCN-A"POINTER = (4.0, 2,0), 
0 FSCN-A-NEXT = (8,0,0,0], 
0 FSCNTA-END = (0,6,52.0) 
0 § TES; 
0 
0 LOCAL 
Q LCL_DESCR: BLOCK (8, BYTE], Local descriptor for IN_FILE 
0 OUT_LENGTH: WORD, Length of OUT_FILE 
0 MAX WIDTH, Maximum width 
0 CURR_WIDTH, Current width 
0 POINTER 
0 
0 


0-74 
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16 
Tri fixed Length ihese -1984 01:19:34 AX-11 Bliss-32 V4.0-74 
L1B e - Trim a ti Lespec 127808- 1 3b 93343382 LIBRTL.SRCILIGTRIMF 1.8 231 
SLIBSVALIDATE_ARGCOUNT (2,4); 
4 
5 ! Initialize SFILESCAN item List. The order of items is 
! important; they are the order in which fields are removed. 
8 S The first item is not a field, but is used to locate the filespec. 
: f 
8 FSCN_LIST CO,FSCN_W_CODE] = FSCNS_FILESPEC; 
9 FSCN_LIST C1,FSCN_W_CODE) = FSCNS$_NODE; 
9 FSCN_LIST gFSCN CODE = FSCNS_DEVICE; 
9 FSCN_LIST oFSCN_W_CODEJ = FSCNS DIRECTORY; 
FSCN_LIST L4&,FSCN_W CODE] = FSCNS$_VERSION; 
9 FSCN_LIST Be = FSCNS_TYPE; 
g FSCN_LIST C6,FSCN_A_ENDJ] = 0; 
‘+ 
! 


Indicate initially that filename is not truncated. 
TRUNCATED = 0; 

1+ 

Get length and address of input string. 


; 

2 

2 

5 

2 STR_STATUS1 = LIBSANALYZE_SDESC_R2 (IN_FILE (0,0 
2 LCL_DESCR CDSCS$W_LENGTH], LUL_DESCR COSCS$A_P 
2 IF NOT .STR_STATUS1 

2 THEN 

§ RETURN .STR_STATUS1; 

14 

$ ! Get maximum field width from WIDTH, if supplied, otherwise the 
: current length of OUT_FILE. 


IF NULLPARAMETER (3) 
THEN 


BEGIN 
STR_ STATUS? = 4b BSANALYZE_SDESC_R2 (OUT_FILE C0,0,0,0]; 
IF NOT 7STR_STATUS2 
THEN 
RETURN .STR_STATUS2; 
MAX_WIDTH = .OUT_LENGTH; 


ELSE 
MAX_WIDTH = .WIDTH (OJ; 


PAQUIN IAIN 2 SS 
WS DONOUS WN OV ONOAUESWN $0 ODNOU EWN SO OONAUSWWN (“OVO OANIOUL Wr 


+ 
Scan filespec 


Be Be Se Se Se Se Ge Se Be Ge Se Se Ge Se Ge Ge Be Ge Fe Ge Ge Ge Te FH Ge Ge Ge Ge Ge FF Ss Se Ge Ss Ge Ss Ge So Se Fs Se Se Se Ge Ge Se Ge Si SOs Se Se SHS Ss Se ee 


ROPoNoNoPononononononony 
oO 


Oufwtr— 


WA 9 


RMS_STATUS = nine (SRCSTR = LCL_DESCR, VALUELST = FSCN_LIST); 


IF ROT .RMS_STATU 
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IBSTRIM_FILESP Trim filespec to fixed lenath 16-Sep-1984 01:19:34 AX-1 
4806 LIBSTRIM, FILESPEC - Trim a filespec 1a-Sep-1 gf O48 :82 LIBR 
3 4 7 THEN 
§ i 8 RETURN .RMS_STATUS; 
; if: 40 + 
: 7 8 4) ! Get pointer to and current Length of filespec. 
: She $328 3 
: 276 0344 CURR_WIDTH = .FSCN_LIST CO, FSCN_W_LENGTH); 
; er 0345 POINTER = .FSCN_LIST fd. FScu_A_POINTERJ; 
> 278 G rf LIST_PTR = FSCN_LIST CO, FSCN_A_NEXT]; 
; 279 034 
; 280 8 48 '+ 
: 4 8 rs Strip fields from filespec, as necessary. 
; sh 0351 ! Note: This implementation depends on a known order of the 
> «6284 O28 ! fields in a filespec. If new fields are added, or if the order 
> 285 035 ! changes, this code may need to be modified. 
3 4] 0354 \- 
3; 287 0355 
; 288 0356 TRIM_BLOCK: 
; 289 0357 BEGIN 
; 290 0358 
s 2) 0359 + 
; 29 0360 3 ! Trim fieids from the left of the filespec: NODE, DEVICE and 
; 2. 0361 3 ! directory in order. 
: 294 Oee8 3 = 
: 295 0363 3 
; 296 0364 3 DECR I FROM 3 TO 1 DO 
: 297 0365 4 BEGIN 
; 298 0366 4 1+ 
; 299 0367 4 ! Does filespec fit now? If so, exit block. 
; 300 0368 4 != 
; 301 0369 4 
3; 302 0370 4 IF .CURR_WIDTH LEQU .MAX_WIDTH 
: wos 0371 4 
: 304 b308 4 LEAVE TRIM_BLOCK; ! Yes 
5 305 0373 4 
3; 306 0374 4 '+ . 
s 307 0375 4 ! Trim field from left of filespec. 
: 308 0376 4 !- 
; 309 0377 4 
; 310 0378 4 POINTER = .POINTER + .LIST_PTR CFSCN_W LENGTH); 
; 311 0379 4 CURR_WIDTH = .CURR_WIDTH -~.LIST_PTR LFSCN_W_LENGTH); 
5 1 389 4 LIST_PTR = LIST_PTR CFSCN_A_NEXTI; 
: 314 388 
s 315 038 '¢ , 
: 316 0384 ! Now trim fields from the right of the filespec. 
; 317 0385 le 
; 318 93 $ 
: 19 be DECRU I FROM 2 T0 1 DO 
s 320 0388 4 BEGIN 
-) Bay 8359 4 + 
: $$ 4 4 ! Does filespec fit now? If so, exit block. 
3 Be 0391 4 !- 
3: 326 ba8 4 
3: 3eo 0393 4 IF .CURR_WIDTH LEQU .MAX_WIDTH 


1 
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(3) 


-1984 01:19:34 AX=-11 Bliss-32 V4.0-74 
ats 7 93:49:34 LIBRTL.SRC (isTRINeT 882;1 


IBSTRIM_FILESP 
=004 


— 
am 


16 
xed length 18-5e 
Trim a filespec 14-Se 


THEN 
LEAVE TRIM_BLOCK; ! Yes 


1¢ 
} Trim field from right of filespec. 


4 »CURR_WIBTH LSSU LEN 


LEN = .CURR_ WIDTH; 
OUTLEN CO) = .LEN; 
END; 


+ 
! If we didn't truncate the filename, or if the copy failed, return 
the copy status. Otherwise return LIBS_STRTRU. 


T 
L 
: 4 
$ & G 4 
3 8 4 
: 383 b308 
: 331 0 4 
; 400 4 
; : aco 4 CURR_WIDTH = .CURR WIDTH = .LIST_PTR CFSCN_W_LENGTH]; 
3 4 ret] 4 LIST_PTR = LIST_PTR CFSCN_A_NEXTI; 
: 5 040 END; 
3 6 0404 
3 7 0405 + 
; 8 0406 ! See if remaining filespec is still too long. 
. f 
3 re 8246 IF _ .CURR_WIDTH LEQU .MAX_WIDTH 
: LEAV BLOCK; 
t3 0411 EAVE TRIM_BLOC 
: 344 brig 
FH} 45 041 '+ 
; +8 pale ; If we get here, the filename will be truncated. 
; ne 0416 
; 349 0417 3 CURR_WIDTH = .MAX_WIDTH; ! Use maximum width 
: 331 pols ; TRUNCATED = .TRUNTATED + 1; ! Indicate string truncated 
: 35 0420 END; 
3 338 063 $ 
; $2¢ 04 ¢ 2 
3 399 943 2 '¢ 
3 357 0438 2 Copy trimmed filespec to OUT_FILE. 
: 358 0426 
3 385 0427 ; COPY_STATUS = LIBSS CORY DX (ZREFC.CURR_WIDTH), .POINTER, 
$ “00 0428 $ GuT_FILE C0,0,0,0); 
;. 636) 0429 
; $08 0430 $ + : 
3 $07 bea) } Store OUTLEN if desired. 
: 365 eG $ 
: 366 0434 IF NOT NULLPARAMETER(4) 
: 367 0435 THEN 
; 68 0436 BEGIN 
i 33 $088 LOCAL EN: WORD 
: 371 0439 LIBSANALYZE SDESC_R2 (OUT_FILE [0,0,0,0]; LEN); 
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FILESP 


LIBSTRIM 
1-004 


LIBS TRIA_FILESP 
-004 


; Routine Size: 


to fixed len 


Trim NE og ath 
LIBSTRIM_FILESPEC = Trim a filespec 


270 bytes, 


4 0 AE 
; 7 ‘ 
1 

: ; 

. 
i 56 
5 68 
50 06 

51 51 
6 
17 
2$ 80 
5 56 
50 06 

51 
A fs 

‘ 05 
f 

08 AC 
54 
08 AE 53 
08 A 

00000000G 00 0 
54 50 

04 6C 

21 

10 AC 

1 

50 08 AC 

67 

04 AE 51 
50 04 a 

50 5 

04 
06 AE 53 
10 BC 04 AE 
03 55 

04 54 

50 54 

£0 00000000G 8F 


Routine Base: _LIBSCODE 


+ 


at 


VIFBA NWT S OH LOM D OOWO OUWOMD OA SMO ONS SMBMour 


OOM WAN MMMMMMoOoVTVTS 


SOOOOSCOOOSOOOSOOSOSOSOOSOOOSOSOOOOOSOOOOOOOOOOOOOOOOOOOOO 


SVOIMMWO 9 09 9 9 —$ 09 NO9 9999 3298 |G NOWW "9 9 MOOWOWW 9 9 OO 
So 
So COOOCOSSSSOSOSOSOOSOSOSOSOSSSOSOOOSOOSOSOOSOSOOOOOOOOOOOOSoSoOOoO 


2 | “COOooooooococooooo 


S LSOLOWOOOM MOCO" OD MOS FPO $WNOWMOD-OMOnwrnonw—-omMmoa 
oS 
= 


o 


16 


=-Sep-1 
=Sep-1 


~ 
wn 


8$: 


9$: 


10$: 
11$: 


12$: 
13$: 


4 01:19:34 AX-11 Bliss-3 
38 04:43: 3 LIBRTL.SRCILI 

MOVL FSCN_LIST+4, POINTER 

MOVAB FSCN-LIST+8, LIST_PTR 

MOVL 

CMPL CURR_WIDTH, MAX_WIDTH 

BLEQU 

MOVZWL (LIST PTR), R6 

ADDL2 6, POINTER 

MOVZWL (LIST_PTR)+, R6 

SUBL2 6, CORR_WIDTH 

ADDL2 = #6, PTR 

SOBGTR 1, 7 

Ov. we, I 

HPL CURR_WIDTH, MAX_WIDTH 

MOVZWL (LIST_PTR)+, R6 

SuBL¢ R6, CORR_WIDTH 

ADDL2 #6, LISTIPTR 

DECL 

BNEQ $ 

CMPL CURR_WIDTH, MAX_WIDTH 

BLEQU 9S 

MOVL § MAX_WIDTH, CURR_WIDTH 

INCL TRUNCATED 

PUSHL OUT_FILE 

PUSHL POIRTER 

MOVL  CURR_WIDTH, 8(SP) 

PUSHAB 8(SP 

CALLS #3, LIBSSCOPY_R_DX 

MOVL RO, COPY_STATOS 

CMPB)s«C AP), «#4 

BLSSu _11$ 

TSTL 16(AP) 

BEQL 118 

MOVL OUT_FILE, RO 

JSB LIBSANALYZE_SDESC_R2 

MOVL 1, LEN 

MOVAB LEN, RO 

CMPL § CURR_WIDTH, RO 

BGEQU 10S 

MOVW  CURR_WIDTH, LEN 

MOVW LEN, “aOUTLE 

BLBC TRUNCATED, 12$ 

BLBS COPY_STATUS, 13$ 

MOVL COPY“STATUS, RO 

MOVL  #LIBS_STRTRU, RO 

RET 


0-74 
MFI.652;1 


 IBRTRIA_F ILESP Trim ES tg: to fixed length 18-50 gon- 1387 $} 13 3 AX-11 Bliss-32 V4.0-74 Page 
LIBSTRIM_FILESPEC = Trim a filespec 14-Sep-1 2:39: LIBRTL.SRCILIBTRIMFI.B52;1 

91 p28 1 END ! End of module LIBSTRIM_FILESPEC 
9 459 1 
9 0460 0 ELUDOM 

3 PSECT SUMMARY 

: Name Bytes Attributes 

; _LIBSCODE 270 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

; Library Statistics 

Se ee eee re eee ae ee ae mae BERLE eeeeesne Pages Processing 

3 File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 1 0 581 00:00.8 

3 ~$255$0UA28:CLIBRTL.OBJIRTLLIB.L32;1 36 2 5 8 00:00.1 


COMMAND QUALIFIERS 
PL SSSPERELE OSE SELD, SEE TON, AP TIALS SPNDTRACE SS, 5OS TOR 1k IO TRIAY L/OR ICRI ch LOTR MSRC$:LIBTRIMF 1/UPDATE=(ENHS:LIBTRIMF I 


Size: 270 code + 0 data bytes 
Run Time: 00:05.9 


ry Used: 116 pages 
eee ation. Complete 
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